home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / Real / wfmhcybergfx_key.c < prev    next >
C/C++ Source or Header  |  2000-01-01  |  8KB  |  352 lines
  1. /* user data. should be modified externally */
  2.  
  3. #define ID_CHECKSUM        88
  4. #define USER_NR                47
  5. #define USER_NAME            "Kenichi Uda"
  6. #define USER_STREET        "85 Imahara cho Nisigamo Kita Ku"
  7. #define USER_CITY            "Kyoto 603-8842"
  8. #define USER_COUNTRY    "Japan"
  9. #define USER_STREAM        "X-!axl5aw3xbq21wr4aqegaz!-=hpA=?=Xq@x5Q6a!p_xAX"
  10.  
  11.  
  12. #define REVISION "40.2"
  13. #define AUTHOR   "Miloslaw Smyk"
  14. #define VERNUM   40
  15. #define REVNUM   2
  16.  
  17. #define PROGNAME    "wfmhcybergfx_key.library"
  18.  
  19.  
  20. /* some useful includes */
  21.  
  22. #include <string.h>
  23. #include <exec/types.h>
  24. #include <exec/execbase.h>
  25. #include <exec/memory.h>
  26. #include <exec/nodes.h>
  27. #include <clib/exec_protos.h>
  28. #include <pragmas/exec_sysbase_pragmas.h>
  29. #include <clib/alib_protos.h>
  30. #include <clib/macros.h>
  31.  
  32. #include "wfmhcybergfx_key.h"
  33. #include "key.h"
  34. /* standard version string */
  35.  
  36. int dither_type = DT_NONE;
  37. static const char version[] = "\0$VER: " PROGNAME " " REVISION " " __AMIGADATE__ " © 1995-97 " AUTHOR " / World Federation of Mad Hackers";
  38. static const char number[] = USER_STREAM;
  39. struct Library *SysBase;
  40. struct KeyBase *KeyBase;
  41.  
  42. struct UserInfo authorized_user =
  43. {
  44.     USER_NR,
  45.     USER_NAME,
  46.     USER_STREET,
  47.     USER_CITY,
  48.     USER_COUNTRY
  49. };
  50.  
  51.  
  52. /*
  53. ** 4x4 4-bit dispersed dot ordered dither pattern, which is the base
  54. ** for final dither pattern, calculated as soon as screen depth
  55. ** is known.
  56. */
  57.  
  58. const UBYTE dithBase[4][4] = {
  59.     1, 15,  2, 12,
  60.     9,  5, 10,  7,
  61.     3, 13,  0, 14,
  62.    11,  7,  8,  4
  63. };
  64.  
  65. static struct dith
  66. {
  67.     UBYTE r, g, b, g2;
  68. } dith[4][4];
  69.  
  70. struct dither_val
  71. {
  72.     UBYTE r[2], g[2], b[2], g2[2];
  73. }    dither[256];
  74.  
  75. int red5[256], green5[256], blue5[256], green6[256];
  76.  
  77. enum {COL_ORIGINAL, COL_SHIFTED};
  78.  
  79. /* macros we use to get fractions with integer math */
  80. #define SCALING_FACTOR    4
  81. #define HALF    8
  82. #define DESCALE(expr) (((expr) + HALF) >> SCALING_FACTOR)
  83.  
  84.  
  85. void __asm __saveds LIBInitDithering(void)
  86. {
  87.     int i,j;
  88.  
  89.     /* calculate errors for every possible pixel value. */
  90.     for(i = 0; i < 256; i++)
  91.     {
  92.         red5[i] = i - ((i + 4) & ~0x07);
  93.         green5[i] = i - ((i + 4) & ~0x07);
  94.         green6[i] = i - ((i + 2) & ~0x03);
  95.         blue5[i] = i - ((i + 4) & ~0x07);
  96.     }
  97.  
  98.     for(i = 0; i < 256; i++)
  99.     {
  100.         dither[i].r[COL_ORIGINAL] = i & ~0x07;
  101.         dither[i].g[COL_ORIGINAL] = i & ~0x07;
  102.         dither[i].g2[COL_ORIGINAL] = i & ~0x03;
  103.         dither[i].b[COL_ORIGINAL] = i & ~0x07;
  104.  
  105.         dither[i].r[COL_SHIFTED] = MIN(i + 8, 255);
  106.         dither[i].g[COL_SHIFTED] = MIN (i + 8, 255);
  107.         dither[i].g2[COL_SHIFTED] = MIN(i + 4,255);
  108.         dither[i].b[COL_SHIFTED] = MIN(i + 8, 255);
  109.     }
  110.  
  111.     for(j = 0; j < 4; j++)
  112.         for(i = 0; i < 4; i++)
  113.         {
  114.             dith[i][j].r = (dithBase[i][j] * 16) / 32;
  115.             dith[i][j].g = (dithBase[i][j] * 16) / 32;
  116.             dith[i][j].g2 = (dithBase[i][j] * 16) / 64;
  117.             dith[i][j].b = (dithBase[i][j] * 16) / 32;
  118.         }
  119. }
  120.  
  121. void __asm __saveds LIBSetDitherType(register __d0 UBYTE type)
  122. {
  123.     dither_type = type;
  124. }
  125.  
  126. void __asm LIBCalcChecksum(register __d0 int *sum, register __a0 char *txt)
  127. {
  128.     while(*txt)
  129.         *sum ^= *txt++;
  130. }
  131.  
  132. void __asm __saveds LIBDitherLine(register __a0 struct R3DHandle *handle, register __a1 UBYTE *buf, register __d0 int len, register __d1 int x, register __d2 int y)
  133. {
  134.     int i;
  135.     int bsame_r, bnext_r, next_r;        
  136.     int bsame_g, bnext_g, next_g;        
  137.     int bsame_b, bnext_b, next_b;        
  138.     UBYTE *inptr;
  139.     SHORT *errptr;
  140.     int delta;
  141.     int temp;
  142.     volatile int check = USER_NR + 151429;
  143.  
  144.     if(handle->depth == 15 || handle->depth == 16)
  145.     {
  146.         switch(dither_type)
  147.         {
  148.             case DT_FS:
  149.                 if(handle->line_width != len)
  150.                 {
  151.                     if(handle->line)
  152.                         FreeVec(handle->line);
  153.  
  154.                     handle->line = AllocVec(sizeof(SHORT) * (len + 2) * 3, MEMF_ANY | MEMF_CLEAR);
  155.                     handle->line_width = len;
  156.                 }
  157.  
  158.                 inptr = buf;
  159.                 errptr = handle->line + 3;
  160.  
  161.                 /* make sure there is no error at the start of the line */
  162.                 for(i = 0; i < 3; i++)
  163.                     errptr[i] = 0;
  164.  
  165.                 bsame_r = bnext_r = next_r = 0;
  166.                 bsame_g = bnext_g = next_g = 0;
  167.                 bsame_b = bnext_b = next_b = 0;
  168.  
  169.                 for(i = 0; i < len; i++)
  170.                 {
  171.                     /* red component */
  172.  
  173.                     temp = *inptr + DESCALE(next_r + bsame_r);
  174.  
  175.                     if(temp < 0)
  176.                         *inptr = 0;
  177.                     else
  178.                         if(temp > 255)
  179.                             *inptr = 255;
  180.                         else
  181.                             *inptr = temp;
  182.  
  183.                     /* right-down pixel gets 1/16 of error */
  184.                     bnext_r = red5[*inptr];
  185.                     delta = bnext_r << 1;
  186.  
  187.                     /* left-down pixel gets 3/16 of error */
  188.                     next_r = bnext_r + delta;
  189.                     *(errptr - 3) += next_r;
  190.  
  191.                     /* pixel below gets 5/16 of error */
  192.                     next_r += delta;
  193.                     *errptr += next_r;
  194.  
  195.                     /* next pixel (to the right) gets 7/16 of error */
  196.                     next_r += delta;
  197.  
  198.                     /* try to get closest match with color-gun */
  199.                     if(*inptr < 252)
  200.                         *inptr += 4;
  201.  
  202.                     bsame_r = *(errptr);
  203.                     *(errptr) = bnext_r;
  204.                     errptr++;
  205.                     inptr++;
  206.  
  207.                     /* green component */
  208.  
  209.                     temp = *inptr + DESCALE(next_g + bsame_g);
  210.  
  211.                     if(temp < 0)
  212.                         *inptr = 0;
  213.                     else
  214.                         if(temp > 255)
  215.                             *inptr = 255;
  216.                         else
  217.                             *inptr = temp;
  218.  
  219.                     /* right-down pixel gets 1/16 of error */
  220.                     bnext_g = handle->depth == 15 ? green5[*inptr] : green6[*inptr];
  221.                     delta = bnext_g << 1;
  222.  
  223.                     /* left-down pixel gets 3/16 of error */
  224.                     next_g = bnext_g + delta;
  225.                     *(errptr - 3) += next_g;
  226.  
  227.                     /* pixel below gets 5/16 of error */
  228.                     next_g += delta;
  229.                     *errptr += next_g;
  230.  
  231.                     /* next pixel (to the right) gets 7/16 of error */
  232.                     next_g += delta;
  233.  
  234.                     /* try to get closest match with color-gun */
  235.                     if(handle->depth == 15)
  236.                     {
  237.                         if(*inptr < 252)
  238.                             *inptr += 4;
  239.                     }
  240.                     else
  241.                     {
  242.                     if(*inptr < 254)
  243.                         *inptr += 2;
  244.                     }
  245.  
  246.                     bsame_g = *(errptr);
  247.                     *(errptr) = bnext_g;
  248.                     errptr++;
  249.                     inptr++;
  250.  
  251.                     /* blue component */
  252.  
  253.                     temp = *inptr + DESCALE(next_b + bsame_b);
  254.  
  255.                     if(temp < 0)
  256.                         *inptr = 0;
  257.                     else
  258.                         if(temp > 255)
  259.                             *inptr = 255;
  260.                         else
  261.                             *inptr = temp;
  262.  
  263.                     /* right-down pixel gets 1/16 of error */
  264.                     bnext_b = blue5[*inptr];
  265.                     delta = bnext_b << 1;
  266.  
  267.                     /* left-down pixel gets 3/16 of error */
  268.                     next_b = bnext_b + delta;
  269.                     *(errptr - 3) += next_b;
  270.  
  271.                     /* pixel below gets 5/16 of error */
  272.                     next_b += delta;
  273.                     *errptr += next_b;
  274.  
  275.                     /* next pixel (to the right) gets 7/16 of error */
  276.                     next_b += delta;
  277.  
  278.                     /* try to get closest match with color-gun */
  279.                     if(*inptr < 252)
  280.                         *inptr += 4;
  281.  
  282.                     bsame_b = *(errptr);
  283.                     *(errptr) = bnext_b;
  284.  
  285.                     errptr++;
  286.  
  287.                     /* advance input pointer */
  288.                     inptr += 2;
  289.                 }
  290.  
  291.                 break;
  292.  
  293.             case DT_ORDERED:
  294.                 FindTask(NULL);
  295.  
  296.                 if(handle->depth == 15)
  297.                     for(i = 0; i < len * 4; i += 4)
  298.                     {
  299.                         if(buf[i] - dither[buf[i]].r[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].r)
  300.                             buf[i] = dither[buf[i]].r[COL_SHIFTED];
  301.                         if(buf[i + 1] - dither[buf[i + 1]].g[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].g)
  302.                             buf[i + 1] = dither[buf[i + 1]].g[COL_SHIFTED];
  303.                         if(buf[i + 2] - dither[buf[i + 2]].b[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].b)
  304.                             buf[i + 2] = dither[buf[i + 2]].b[COL_SHIFTED];
  305.                     }
  306.                 else
  307.                     for(i = 0; i < len * 4; i += 4)
  308.                     {
  309.                         if(buf[i] - dither[buf[i]].r[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].r)
  310.                             buf[i] = dither[buf[i]].r[COL_SHIFTED];
  311.                         if(buf[i + 1] - dither[buf[i + 1]].g2[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].g2)
  312.                             buf[i + 1] = dither[buf[i + 1]].g2[COL_SHIFTED];
  313.                         if(buf[i + 2] - dither[buf[i + 2]].b[COL_ORIGINAL] > dith[y & 3][(i / 4) & 3].b)
  314.                             buf[i + 2] = dither[buf[i + 2]].b[COL_SHIFTED];
  315.                     }
  316.                 break;
  317.         }
  318.     }
  319.  
  320.     check++;
  321. }
  322.  
  323. struct UserInfo * __asm __saveds LIBGetUserInfo(void)
  324. {
  325.     int sum = 0;
  326.  
  327.     CalcChecksum(&sum, authorized_user.name);
  328.     CalcChecksum(&sum, authorized_user.street);
  329.     CalcChecksum(&sum, authorized_user.city);
  330.     CalcChecksum(&sum, authorized_user.country);
  331.     sum += authorized_user.number;
  332.  
  333. //    printf("sum: %d\n", ((sum >> 1) - 4) << 1);
  334.     authorized_user.sum = sum;
  335.  
  336.     SysBase = (*(struct Library **)((sum >> 1) - (ID_CHECKSUM >> 1)));
  337.  
  338.     return(&authorized_user);
  339. }
  340.  
  341. int __asm __saveds __UserLibInit(register __a6 struct KeyBase *libbase)
  342. {
  343.     KeyBase = libbase;
  344. //    SysBase = (*(struct Library **)4);
  345.  
  346.     return(0);
  347. }
  348.  
  349. void __saveds __UserLibCleanup(void)
  350. {
  351. }
  352.